From ca4a43d4af1ec26f1baabfa9c1019249c2580cc3 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 4 Dec 2000 15:54:20 +0000 Subject: [PATCH] (auto_save_error): Add parameter ERROR. Show the error in the message. --- src/fileio.c | 31 ++++++++++++++++++++++++------- 1 file changed, 24 insertions(+), 7 deletions(-) diff --git a/src/fileio.c b/src/fileio.c index 0eb07ce3bc1..92a4842391c 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -5224,15 +5224,32 @@ An argument specifies the modification time value to use\n\ } Lisp_Object -auto_save_error () +auto_save_error (error) + Lisp_Object error; { + Lisp_Object args[3], msg; + int i, nbytes; + struct gcpro gcpro1; + ring_bell (); - message_with_string ("Autosaving...error for %s", current_buffer->name, 1); - Fsleep_for (make_number (1), Qnil); - message_with_string ("Autosaving...error for %s", current_buffer->name, 0); - Fsleep_for (make_number (1), Qnil); - message_with_string ("Autosaving...error for %s", current_buffer->name, 0); - Fsleep_for (make_number (1), Qnil); + + args[0] = build_string ("Auto-saving %s: %s"); + args[1] = current_buffer->name; + args[2] = Ferror_message_string (error); + msg = Fformat (3, args); + GCPRO1 (msg); + nbytes = STRING_BYTES (XSTRING (msg)); + + for (i = 0; i < 3; ++i) + { + if (i == 0) + message2 (XSTRING (msg)->data, nbytes, STRING_MULTIBYTE (msg)); + else + message2_nolog (XSTRING (msg)->data, nbytes, STRING_MULTIBYTE (msg)); + Fsleep_for (make_number (1), Qnil); + } + + UNGCPRO; return Qnil; } -- 2.30.2